home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64misc / gdump / COLOR PRINT (.txt) < prev    next >
Commodore BASIC  |  1989-05-26  |  3KB  |  99 lines
  1. 1000 REM BASIC PROGRAM TO SUPPORT GDUMP
  2. 1005 REM PROVIDES COLOR PRINTOUTS
  3. 1010 REM     M.J.KERYAN  3-30-84
  4. 1020 :
  5. 1030 IF A=0 THEN A=1: LOAD" GDUMP+MOVE",8,1
  6. 1040 IF A=1 THEN A=2: GOTO 2000
  7. 1050 POKE 20491,PT: POKE 20492,SD
  8. 1060 POKE 20493,NT: POKE 20487,NP
  9. 1070 SYS GT
  10. 1080 IF TY=2 OR TY=4 THEN MD=PEEK(53270): MD=3-((MD AND 16)/16): POKE 20494,MD
  11. 1090 IF TY=3 OR TY=5 THEN POKE 20494,3
  12. 1100 IF TY=6 THEN POKE 20494,0
  13. 1110 GETK$:IF K$<>""THEN 1110
  14. 1120 GETK$:IF K$="" THEN 1120
  15. 1130 IF K$="P" THEN SYS 20480: GOTO 1800
  16. 1140 IF K$="E" THEN 1800
  17. 1150 C=0: IF K$="B" THEN C=1
  18. 1160 IF K$="N" THEN C=2
  19. 1170 IF K$="R" THEN C=3
  20. 1180 IF K$="G" THEN C=4
  21. 1190 IF K$="U" THEN C=5
  22. 1200 IF C=0 THEN 1110
  23. 1300 FOR M=0 TO 15: MM=21182+M: NN=21198+M
  24. 1310 POKE MM,CM(C,M): POKE NN,CM(0,M)
  25. 1320 NEXT M
  26. 1330 SYS 20480: GOTO 1110
  27. 1800 :    REM QUIT
  28. 1840 POKE 53265,(PEEK(53265)AND223)
  29. 1850 POKE 53270,(PEEK(53270)AND207)
  30. 1860 POKE 53272,21
  31. 1870 POKE 53280,6: POKE 53281,15: POKE 646,0
  32. 1880 PRINT"[147]": END
  33. 2000 POKE 53280,6: POKE 53281,15: POKE 646,0
  34. 2010 PRINT"[147]WHICH TYPE OF PICTURE?"
  35. 2020 PRINT
  36. 2030 PRINT"    1  SIMON'S BASIC"
  37. 2040 PRINT"    2  ULTRABASIC-64"
  38. 2050 PRINT"    3  DOODLE"
  39. 2060 PRINT"    4  KOALAPAINTER"
  40. 2070 PRINT"    5  SLIDESHOW"
  41. 2080 PRINT"    6  SLIDESHOW - INVERTED"
  42. 2090 INPUT"  ";TY
  43. 2100 IF TY<1 OR TY>6 THEN 2000
  44. 2110 :
  45. 2120 PT = 0:  REM PRINTER TYPE
  46. 2130 :        REM  NEC/PROWRITER    = 0
  47. 2140 :        REM  EPSON OR SIMILAR = 1
  48. 2150 :
  49. 2160 NP = 3:  IF PT=1 THEN NP = 2
  50. 2170 :        REM d  CODE
  51. 2180 :
  52. 2190 NT = 0:  REM INTERFACE TYPE
  53. 2200 :        REM  CONNECTION = 0
  54. 2210 :        REM  OTHERS     = 1
  55. 2220 :
  56. 2230 SD = 6:  REM SECONDARY ADDRESS
  57. 2240 :        REM FOR TRANSPARENT
  58. 2250 :
  59. 2260 GT = 21808 + (TY-1)*3
  60. 2270 IF GT>21820 THEN GT=21820
  61. 2280 IF TY=1 THEN 3000
  62. 2290 PRINT"NOW PUT IN DISK WITH THE PICTURE FILE."
  63. 2300 INPUT"NAME OF PICTURE";NM$
  64. 2310 PRINT"AFTER PICTURE LOADS, PRESS:"
  65. 2320 PRINT"   P FOR BLACK/WHITE PRINT"
  66. 2321 PRINT
  67. 2322 PRINT"   COLOR PRINT:"
  68. 2323 PRINT"   B FOR BLACK RIBBON"
  69. 2324 PRINT"   N FOR BROWN RIBBON"
  70. 2325 PRINT"   U FOR BLUE RIBBON"
  71. 2326 PRINT"   R FOR RED RIBBON"
  72. 2327 PRINT"   G FOR GREEN RIBBON"
  73. 2329 PRINT
  74. 2330 PRINT"   E TO EXIT"
  75. 2340 DIM CM(5,15)
  76. 2350 FOR I=0TO5: FOR J=0TO15
  77. 2360 READ MM: CM(I,J)=MM: NEXTJ: NEXTI
  78. 2370 IF TY=4  THEN LOAD "?"+NM$+"*",8,1
  79. 2380 IF TY<>4 THEN LOAD NM$+"*",8,1
  80. 2900 :
  81. 3000 REM CREATE A SIMON'S BASIC PROGRAM
  82. 3010 Q$=CHR$(34)
  83. 3020 PRINT"[147]1 IF A=1THENA=2: LOAD"Q$" GDUMP+MOVE"Q$",8,1"
  84. 3030 PRINT"2 IF A=0 THEN A=1: GOTO 7
  85. 3040 [153]"3 POKE 20491,"PT" :POKE 20492,"SD
  86. 3050 [153]"4 POKE 20493,"NT" :POKE 20487,"NP" :SYS 21808"
  87. 3060 [153]"5 A=PEEK(53270): A=(A AND 16)/16"
  88. 3070 [153]"6 A=3-A: POKE 20494,A: SYS 20480: END"
  89. 3080 [153]"7 REM APPEND YOUR PROGRAM HERE"
  90. 3090 [153]"SAVE"Q$"SIMON.GDUMP"Q$",8"
  91. 3100 [151] 631,19: [129] A[178]632[164]639: [151] A,13: [130] A
  92. 3110 [151] 198,9: [162]
  93. 4000 [131] 0,5,32,10,64,20,1,40,159,165,90,130,219,135,80,255
  94. 4010 [131] 15,0,0,0,0,0,0,0,0,0,0,12,13,0,0,3
  95. 4020 [131] 0,0,0,0,0,0,0,2,4,15,0,0,0,0,0,0
  96. 4030 [131] 0,0,15,0,9,0,0,0,6,0,9,0,0,0,0,0
  97. 4040 [131] 0,0,0,5,0,15,0,0,2,0,0,0,0,9,0,0
  98. 4050 [131] 0,0,0,11,10,0,15,0,0,0,0,0,0,0,10,0
  99.